home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
batsound.zip
/
ALERT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-03-21
|
277b
|
22 lines
program alert;
uses crt;
var
varies : integer;
dummy : char;
begin
writeln('Press a key, please...');
repeat
varies := 262;
while varies <= 524 do
begin
sound(varies);
delay(2);
varies := varies + 1;
end;
until keypressed;
nosound;
dummy := readkey
end.